home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Prog / D-G / DevScraps 1.0(Useful Tips).sit / DevScraps (Useful Tips) / DevScraps (Useful Tips) / background_2605.xml next >
Encoding:
Extensible Markup Language  |  1993-10-20  |  44.6 KB  |  1,477 lines

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2605</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_3631.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3314.css" />
  11.     <part>
  12.         <id>1</id>
  13.         <type>field</type>
  14.         <visible> <true /> </visible>
  15.         <dontWrap> <false /> </dontWrap>
  16.         <dontSearch> <false /> </dontSearch>
  17.         <sharedText> <false /> </sharedText>
  18.         <fixedLineHeight> <false /> </fixedLineHeight>
  19.         <autoTab> <false /> </autoTab>
  20.         <lockText> <true /> </lockText>
  21.         <rect>
  22.             <left>1</left>
  23.             <top>99</top>
  24.             <right>511</right>
  25.             <bottom>279</bottom>
  26.         </rect>
  27.         <style>scrolling</style>
  28.         <autoSelect> <false /> </autoSelect>
  29.         <showLines> <false /> </showLines>
  30.         <wideMargins> <false /> </wideMargins>
  31.         <multipleLines> <false /> </multipleLines>
  32.         <reservedFamily> 0 </reservedFamily>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>left</textAlign>
  36.         <font>Monaco</font>
  37.         <textSize>9</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <textHeight>12</textHeight>
  40.         <name>theText</name>
  41.         <script></script>
  42.     </part>
  43.     <part>
  44.         <id>2</id>
  45.         <type>button</type>
  46.         <visible> <true /> </visible>
  47.         <reserved5> 0 </reserved5>
  48.         <reserved4> 0 </reserved4>
  49.         <reserved3> 0 </reserved3>
  50.         <reserved2> 0 </reserved2>
  51.         <reserved1> 0 </reserved1>
  52.         <enabled> <true /> </enabled>
  53.         <rect>
  54.             <left>3</left>
  55.             <top>68</top>
  56.             <right>41</right>
  57.             <bottom>96</bottom>
  58.         </rect>
  59.         <style>transparent</style>
  60.         <showName> <false /> </showName>
  61.         <highlight> <false /> </highlight>
  62.         <autoHighlight> <true /> </autoHighlight>
  63.         <sharedHighlight> <true /> </sharedHighlight>
  64.         <family>0</family>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>10935</icon>
  67.         <textAlign>center</textAlign>
  68.         <font>Chicago</font>
  69.         <textSize>12</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <name>Home</name>
  72.         <script>on mouseUp
  73. visual effect dissolve
  74. go home
  75. end mouseUp
  76.  
  77. </script>
  78.     </part>
  79.     <part>
  80.         <id>3</id>
  81.         <type>button</type>
  82.         <visible> <true /> </visible>
  83.         <reserved5> 0 </reserved5>
  84.         <reserved4> 0 </reserved4>
  85.         <reserved3> 0 </reserved3>
  86.         <reserved2> 0 </reserved2>
  87.         <reserved1> 0 </reserved1>
  88.         <enabled> <true /> </enabled>
  89.         <rect>
  90.             <left>236</left>
  91.             <top>68</top>
  92.             <right>274</right>
  93.             <bottom>96</bottom>
  94.         </rect>
  95.         <style>transparent</style>
  96.         <showName> <false /> </showName>
  97.         <highlight> <false /> </highlight>
  98.         <autoHighlight> <true /> </autoHighlight>
  99.         <sharedHighlight> <true /> </sharedHighlight>
  100.         <family>0</family>
  101.         <titleWidth>0</titleWidth>
  102.         <icon>28654</icon>
  103.         <textAlign>center</textAlign>
  104.         <font>Chicago</font>
  105.         <textSize>12</textSize>
  106.         <textStyle>plain</textStyle>
  107.         <name>Find</name>
  108.         <script>on mouseUp
  109. domenu "Find..."
  110. end mouseUp</script>
  111.     </part>
  112.     <part>
  113.         <id>5</id>
  114.         <type>button</type>
  115.         <visible> <true /> </visible>
  116.         <reserved5> 0 </reserved5>
  117.         <reserved4> 0 </reserved4>
  118.         <reserved3> 0 </reserved3>
  119.         <reserved2> 0 </reserved2>
  120.         <reserved1> 0 </reserved1>
  121.         <enabled> <true /> </enabled>
  122.         <rect>
  123.             <left>119</left>
  124.             <top>68</top>
  125.             <right>157</right>
  126.             <bottom>96</bottom>
  127.         </rect>
  128.         <style>transparent</style>
  129.         <showName> <false /> </showName>
  130.         <highlight> <false /> </highlight>
  131.         <autoHighlight> <true /> </autoHighlight>
  132.         <sharedHighlight> <true /> </sharedHighlight>
  133.         <family>0</family>
  134.         <titleWidth>0</titleWidth>
  135.         <icon>17224</icon>
  136.         <textAlign>center</textAlign>
  137.         <font>Chicago</font>
  138.         <textSize>12</textSize>
  139.         <textStyle>plain</textStyle>
  140.         <name></name>
  141.         <script>on mouseUp
  142. put 17224 into lockfield
  143. put 17225 into unlockfield
  144. lock screen
  145.  
  146. if the icon of me is lockfield then
  147. set the icon of me to unlockfield
  148. set the locktext of bg fld "theText" to FALSE
  149. set the locktext of bg fld "author" to FALSE
  150. play click
  151.  
  152. unlock screen with visual effect zoom open
  153. else if the icon of me is unlockfield then
  154. set the icon of me to lockfield
  155. set the locktext of bg fld "theText" to TRUE
  156. set the locktext of bg fld "author" to TRUE
  157. play click
  158. unlock screen with visual effect zoom close
  159. end if
  160.  
  161. end mouseUp
  162. </script>
  163.     </part>
  164.     <part>
  165.         <id>7</id>
  166.         <type>field</type>
  167.         <visible> <true /> </visible>
  168.         <dontWrap> <false /> </dontWrap>
  169.         <dontSearch> <false /> </dontSearch>
  170.         <sharedText> <false /> </sharedText>
  171.         <fixedLineHeight> <false /> </fixedLineHeight>
  172.         <autoTab> <false /> </autoTab>
  173.         <lockText> <true /> </lockText>
  174.         <rect>
  175.             <left>343</left>
  176.             <top>18</top>
  177.             <right>512</right>
  178.             <bottom>45</bottom>
  179.         </rect>
  180.         <style>transparent</style>
  181.         <autoSelect> <false /> </autoSelect>
  182.         <showLines> <false /> </showLines>
  183.         <wideMargins> <false /> </wideMargins>
  184.         <multipleLines> <false /> </multipleLines>
  185.         <reservedFamily> 0 </reservedFamily>
  186.         <titleWidth>0</titleWidth>
  187.         <icon>0</icon>
  188.         <textAlign>left</textAlign>
  189.         <font>Geneva</font>
  190.         <textSize>9</textSize>
  191.         <textStyle>plain</textStyle>
  192.         <textHeight>12</textHeight>
  193.         <name>cat</name>
  194.         <script>on mouseup
  195. if the optionkey is down then
  196. play drip
  197. ask "What's the new category ‚Ä¢ keyword?" with me
  198. if it <> empty then
  199. put it into me
  200. end if
  201. end if
  202. end mouseup</script>
  203.     </part>
  204.     <part>
  205.         <id>8</id>
  206.         <type>field</type>
  207.         <visible> <true /> </visible>
  208.         <dontWrap> <false /> </dontWrap>
  209.         <dontSearch> <true /> </dontSearch>
  210.         <sharedText> <false /> </sharedText>
  211.         <fixedLineHeight> <false /> </fixedLineHeight>
  212.         <autoTab> <false /> </autoTab>
  213.         <lockText> <true /> </lockText>
  214.         <rect>
  215.             <left>346</left>
  216.             <top>3</top>
  217.             <right>495</right>
  218.             <bottom>17</bottom>
  219.         </rect>
  220.         <style>opaque</style>
  221.         <autoSelect> <false /> </autoSelect>
  222.         <showLines> <false /> </showLines>
  223.         <wideMargins> <false /> </wideMargins>
  224.         <multipleLines> <false /> </multipleLines>
  225.         <reservedFamily> 0 </reservedFamily>
  226.         <titleWidth>0</titleWidth>
  227.         <icon>0</icon>
  228.         <textAlign>right</textAlign>
  229.         <font>Geneva</font>
  230.         <textSize>9</textSize>
  231.         <textStyle>plain</textStyle>
  232.         <textHeight>12</textHeight>
  233.         <name>cards</name>
  234.         <script></script>
  235.     </part>
  236.     <part>
  237.         <id>9</id>
  238.         <type>button</type>
  239.         <visible> <true /> </visible>
  240.         <reserved5> 0 </reserved5>
  241.         <reserved4> 0 </reserved4>
  242.         <reserved3> 0 </reserved3>
  243.         <reserved2> 0 </reserved2>
  244.         <reserved1> 0 </reserved1>
  245.         <enabled> <true /> </enabled>
  246.         <rect>
  247.             <left>448</left>
  248.             <top>72</top>
  249.             <right>469</right>
  250.             <bottom>92</bottom>
  251.         </rect>
  252.         <style>transparent</style>
  253.         <showName> <false /> </showName>
  254.         <highlight> <false /> </highlight>
  255.         <autoHighlight> <true /> </autoHighlight>
  256.         <sharedHighlight> <true /> </sharedHighlight>
  257.         <family>0</family>
  258.         <titleWidth>0</titleWidth>
  259.         <icon>8347</icon>
  260.         <textAlign>center</textAlign>
  261.         <font>Chicago</font>
  262.         <textSize>12</textSize>
  263.         <textStyle>plain</textStyle>
  264.         <name></name>
  265.         <script>on mouseUp
  266.  
  267. lock screen
  268. set the scroll of bg fld "theText" to 0
  269.  
  270. if the optionkey is down then
  271. go to the first cd of this bg
  272. unlock screen with visual effect scroll right
  273. exit mouseup
  274. end if
  275.  
  276. if the id of this cd is the id of the first cd of this bg then
  277. go to the last cd of this bg
  278. else
  279. go prev
  280. end if
  281. unlock screen with visual effect scroll right
  282. end mouseUp</script>
  283.     </part>
  284.     <part>
  285.         <id>10</id>
  286.         <type>button</type>
  287.         <visible> <true /> </visible>
  288.         <reserved5> 0 </reserved5>
  289.         <reserved4> 0 </reserved4>
  290.         <reserved3> 0 </reserved3>
  291.         <reserved2> 0 </reserved2>
  292.         <reserved1> 0 </reserved1>
  293.         <enabled> <true /> </enabled>
  294.         <rect>
  295.             <left>477</left>
  296.             <top>72</top>
  297.             <right>497</right>
  298.             <bottom>92</bottom>
  299.         </rect>
  300.         <style>transparent</style>
  301.         <showName> <false /> </showName>
  302.         <highlight> <false /> </highlight>
  303.         <autoHighlight> <true /> </autoHighlight>
  304.         <sharedHighlight> <true /> </sharedHighlight>
  305.         <family>0</family>
  306.         <titleWidth>0</titleWidth>
  307.         <icon>8348</icon>
  308.         <textAlign>center</textAlign>
  309.         <font>Chicago</font>
  310.         <textSize>12</textSize>
  311.         <textStyle>plain</textStyle>
  312.         <name></name>
  313.         <script>on mouseUp
  314.  
  315. lock screen
  316. set the scroll of bg fld "theText" to 0
  317. if the optionkey is down then
  318. go to the last cd of this bg
  319. unlock screen with visual effect scroll left
  320. exit mouseup
  321. end if
  322.  
  323. if the id of this cd is the id of the last cd of this bg then
  324. go to the first cd of this bg
  325. else
  326. go next
  327. end if
  328. unlock screen with visual effect scroll left
  329. end mouseUp
  330. </script>
  331.     </part>
  332.     <part>
  333.         <id>17</id>
  334.         <type>button</type>
  335.         <visible> <true /> </visible>
  336.         <reserved5> 0 </reserved5>
  337.         <reserved4> 0 </reserved4>
  338.         <reserved3> 0 </reserved3>
  339.         <reserved2> 0 </reserved2>
  340.         <reserved1> 0 </reserved1>
  341.         <enabled> <true /> </enabled>
  342.         <rect>
  343.             <left>350</left>
  344.             <top>68</top>
  345.             <right>388</right>
  346.             <bottom>96</bottom>
  347.         </rect>
  348.         <style>transparent</style>
  349.         <showName> <false /> </showName>
  350.         <highlight> <false /> </highlight>
  351.         <autoHighlight> <true /> </autoHighlight>
  352.         <sharedHighlight> <true /> </sharedHighlight>
  353.         <family>0</family>
  354.         <titleWidth>0</titleWidth>
  355.         <icon>25925</icon>
  356.         <textAlign>center</textAlign>
  357.         <font>Chicago</font>
  358.         <textSize>12</textSize>
  359.         <textStyle>plain</textStyle>
  360.         <name></name>
  361.         <script>on mouseUp
  362. global theCatList
  363.  
  364. if the visible of bg fld "popup" = TRUE then
  365. beep
  366. answer "The popup field is already showing!"
  367. exit mouseup
  368. end if
  369.  
  370. set the cursor to watch
  371. lock screen
  372.  
  373. if theCatList ‚↠empty then
  374. put theCatList into bg fld "popup"
  375. else
  376. push cd
  377. go to cd 1
  378. put cd fld "theList" into theLocalList
  379. pop cd
  380. put theLocalList into bg fld "popup"
  381. end if
  382.  
  383. set the scroll of bg fld "popup" to 0
  384. show bg fld "popup"
  385. show bg btn id 19
  386. -- show bg btns 12-37
  387. put 12 into i
  388. repeat for 26
  389. set the visible of bg btn i to TRUE
  390. put i + 1 into i
  391. end repeat
  392.  
  393. unlock screen with zoom out
  394. end mouseUp
  395. </script>
  396.     </part>
  397.     <part>
  398.         <id>21</id>
  399.         <type>field</type>
  400.         <visible> <true /> </visible>
  401.         <dontWrap> <false /> </dontWrap>
  402.         <dontSearch> <false /> </dontSearch>
  403.         <sharedText> <false /> </sharedText>
  404.         <fixedLineHeight> <false /> </fixedLineHeight>
  405.         <autoTab> <false /> </autoTab>
  406.         <lockText> <true /> </lockText>
  407.         <rect>
  408.             <left>1</left>
  409.             <top>280</top>
  410.             <right>511</right>
  411.             <bottom>295</bottom>
  412.         </rect>
  413.         <style>rectangle</style>
  414.         <autoSelect> <false /> </autoSelect>
  415.         <showLines> <false /> </showLines>
  416.         <wideMargins> <false /> </wideMargins>
  417.         <multipleLines> <false /> </multipleLines>
  418.         <reservedFamily> 0 </reservedFamily>
  419.         <titleWidth>0</titleWidth>
  420.         <icon>0</icon>
  421.         <textAlign>center</textAlign>
  422.         <font>Geneva</font>
  423.         <textSize>9</textSize>
  424.         <textStyle>plain</textStyle>
  425.         <textHeight>12</textHeight>
  426.         <name>author</name>
  427.         <script>on mouseup
  428. play drip
  429. put "This info submitted or developed by " & me into it
  430. answer it
  431. end mouseup</script>
  432.     </part>
  433.     <part>
  434.         <id>18</id>
  435.         <type>field</type>
  436.         <visible> <false /> </visible>
  437.         <dontWrap> <false /> </dontWrap>
  438.         <dontSearch> <true /> </dontSearch>
  439.         <sharedText> <false /> </sharedText>
  440.         <fixedLineHeight> <false /> </fixedLineHeight>
  441.         <autoTab> <false /> </autoTab>
  442.         <lockText> <true /> </lockText>
  443.         <rect>
  444.             <left>1</left>
  445.             <top>98</top>
  446.             <right>511</right>
  447.             <bottom>296</bottom>
  448.         </rect>
  449.         <style>scrolling</style>
  450.         <autoSelect> <false /> </autoSelect>
  451.         <showLines> <false /> </showLines>
  452.         <wideMargins> <true /> </wideMargins>
  453.         <multipleLines> <false /> </multipleLines>
  454.         <reservedFamily> 0 </reservedFamily>
  455.         <titleWidth>0</titleWidth>
  456.         <icon>0</icon>
  457.         <textAlign>left</textAlign>
  458.         <font>Geneva</font>
  459.         <textSize>9</textSize>
  460.         <textStyle>plain</textStyle>
  461.         <textHeight>16</textHeight>
  462.         <name>popup</name>
  463.         <script>on mousedown
  464. set the cursor to watch
  465. lock screen
  466. select line (word 2 of the clickline) of me
  467. get the selectedchunk
  468. add 1 to word 4 of it
  469. unlock screen
  470. select it
  471.  
  472. put line (word 2 of the clickline) of me into whatToFind
  473. if whatToFind ‚↠empty then
  474. lock screen
  475. Find whatToFind in bg fld "cat"
  476. put empty into me
  477. hide me
  478. hide bg btn id 19
  479. put 12 into i
  480. repeat for 26
  481. set the visible of bg btn i to FALSE
  482. put i + 1 into i
  483. end repeat
  484. unlock screen with visual effect zoom close
  485. else
  486. play drip
  487. end if
  488.  
  489. end mousedown</script>
  490.     </part>
  491.     <part>
  492.         <id>19</id>
  493.         <type>button</type>
  494.         <visible> <false /> </visible>
  495.         <reserved5> 0 </reserved5>
  496.         <reserved4> 0 </reserved4>
  497.         <reserved3> 0 </reserved3>
  498.         <reserved2> 0 </reserved2>
  499.         <reserved1> 0 </reserved1>
  500.         <enabled> <true /> </enabled>
  501.         <rect>
  502.             <left>1</left>
  503.             <top>66</top>
  504.             <right>511</right>
  505.             <bottom>99</bottom>
  506.         </rect>
  507.         <style>rectangle</style>
  508.         <showName> <true /> </showName>
  509.         <highlight> <false /> </highlight>
  510.         <autoHighlight> <true /> </autoHighlight>
  511.         <sharedHighlight> <true /> </sharedHighlight>
  512.         <family>0</family>
  513.         <titleWidth>0</titleWidth>
  514.         <icon>0</icon>
  515.         <textAlign>center</textAlign>
  516.         <font>Chicago</font>
  517.         <textSize>12</textSize>
  518.         <textStyle>condense</textStyle>
  519.         <name>Click a ‚ÄúScrap‚Äù or Click Here to Cancel</name>
  520.         <script>on mouseUp
  521. lock screen
  522. hide me
  523. put empty into bg fld "popup"
  524. hide bg fld "popup"
  525. put 12 into i
  526. repeat for 26
  527. set the visible of bg btn i to FALSE
  528. put i + 1 into i
  529. end repeat
  530. unlock screen with visual effect zoom close
  531. end mouseUp
  532. </script>
  533.     </part>
  534.     <part>
  535.         <id>20</id>
  536.         <type>button</type>
  537.         <visible> <true /> </visible>
  538.         <reserved5> 0 </reserved5>
  539.         <reserved4> 0 </reserved4>
  540.         <reserved3> 0 </reserved3>
  541.         <reserved2> 0 </reserved2>
  542.         <reserved1> 0 </reserved1>
  543.         <enabled> <true /> </enabled>
  544.         <rect>
  545.             <left>0</left>
  546.             <top>0</top>
  547.             <right>12</right>
  548.             <bottom>12</bottom>
  549.         </rect>
  550.         <style>transparent</style>
  551.         <showName> <false /> </showName>
  552.         <highlight> <false /> </highlight>
  553.         <autoHighlight> <false /> </autoHighlight>
  554.         <sharedHighlight> <false /> </sharedHighlight>
  555.         <family>0</family>
  556.         <titleWidth>0</titleWidth>
  557.         <icon>0</icon>
  558.         <textAlign>center</textAlign>
  559.         <font>Chicago</font>
  560.         <textSize>12</textSize>
  561.         <textStyle>plain</textStyle>
  562.         <name></name>
  563.         <script>on mouseUp
  564. if the optionkey is down then
  565. domenu "compact stack"
  566. exit mouseup
  567. end if
  568. play drip
  569. answer "Compact & Backup? Don‚Äôt forget to change the version number before distribution." with "Cancel" or "OK"
  570. If it is "OK" then
  571. domenu "compact stack"
  572. domenu "save a copy..."
  573. end if
  574. end mouseUp</script>
  575.     </part>
  576.     <part>
  577.         <id>26</id>
  578.         <type>button</type>
  579.         <visible> <true /> </visible>
  580.         <reserved5> 0 </reserved5>
  581.         <reserved4> 0 </reserved4>
  582.         <reserved3> 0 </reserved3>
  583.         <reserved2> 0 </reserved2>
  584.         <reserved1> 0 </reserved1>
  585.         <enabled> <true /> </enabled>
  586.         <rect>
  587.             <left>346</left>
  588.             <top>3</top>
  589.             <right>511</right>
  590.             <bottom>17</bottom>
  591.         </rect>
  592.         <style>transparent</style>
  593.         <showName> <false /> </showName>
  594.         <highlight> <false /> </highlight>
  595.         <autoHighlight> <false /> </autoHighlight>
  596.         <sharedHighlight> <false /> </sharedHighlight>
  597.         <family>0</family>
  598.         <titleWidth>0</titleWidth>
  599.         <icon>0</icon>
  600.         <textAlign>center</textAlign>
  601.         <font>Chicago</font>
  602.         <textSize>12</textSize>
  603.         <textStyle>plain</textStyle>
  604.         <name>Sort</name>
  605.         <script>on mouseUp
  606. if the optionkey is down then
  607. play drip
  608. answer "Update list? Don‚Äôt forget to change the version number before distribution." with "Cancel" or "Update"
  609. If it is "Update" then
  610.  
  611. push cd
  612. lock screen
  613.  
  614. put "Marking 7 only‚Ķ"
  615. MarkSevenOnly -- nuke any 7 only mistakes
  616.  
  617. set the cursor to watch
  618. put "Sorting‚Ķ"
  619. sort this bg by bg fld "cat" -- sort the bg
  620.  
  621. put "Producing list‚Ķ"
  622. ProduceList -- update the list
  623.  
  624. put "Fixing author fonts‚Ķ"
  625. FixFonts -- set all author fields to geneva 9
  626.  
  627. put "Resetting scroll bars‚Ķ"
  628. ResetScrollBars
  629.  
  630. put "Compacting stack‚Ķ"
  631. domenu "Compact Stack"
  632.  
  633. opencard -- to update card numbers
  634. put empty
  635. hide msg
  636. pop cd
  637. unlock screen
  638. end if
  639. else
  640. ask "Go To Card?" with the number of this card - 1
  641. if it is empty then exit mouseup
  642. go to cd it of this bg
  643. end if
  644. end mouseUp
  645.  
  646.  
  647. on ResetScrollBars
  648.  
  649. push cd
  650.  
  651. put the number of cds of bg id 2605 into numCards
  652. go to cd 1 of bg id 2605
  653.  
  654. repeat for numCards
  655. set the cursor to busy
  656. set the scroll of bg fld "theText" to 0
  657. go next
  658. end repeat
  659.  
  660. pop cd
  661.  
  662. end ResetScrollBars
  663.  
  664.  
  665. on MarkSevenOnly
  666.  
  667. push cd
  668.  
  669. put the number of cds of bg id 2605 into numCards
  670. go to cd 1 of bg id 2605
  671.  
  672. repeat for numCards
  673. set the cursor to busy
  674.  
  675. if the hilite of bg btn "7 Only" is TRUE then
  676. if char 1 to 4 of bg fld "cat" ‚↠"7 ‚Ä¢ " then put "7 ‚Ä¢ " before bg fld "cat"
  677. end if
  678.  
  679. if the hilite of bg btn "7 Only" is FALSE then
  680. if char 1 to 4 of bg fld "cat" = "7 ‚Ä¢ " then delete char 1 to 4 of bg fld "cat"
  681. end if
  682.  
  683. go next
  684. end repeat
  685.  
  686. pop cd
  687.  
  688. end MarkSevenOnly
  689.  
  690.  
  691.  
  692. on FixFonts
  693.  
  694. push cd
  695.  
  696. put the number of cds of bg id 2605 into numCards
  697. go to cd 1 of bg id 2605
  698.  
  699. repeat for numCards
  700. set the cursor to busy
  701. if line 1 of bg fld "author" = empty then put "?" after bg fld "author"
  702. set the textsize of bg fld "author" to 9
  703. set the textfont of bg fld "author" to "Geneva"
  704. go next
  705. end repeat
  706.  
  707. pop cd
  708.  
  709. end FixFonts
  710.  
  711.  
  712.  
  713. on ProduceList
  714. global theCatList
  715.  
  716. push cd
  717. put the number of cds of bg id 2605 into numCards
  718. put empty into theCatList
  719. go to cd 1 of bg id 2605
  720. put 1 into x
  721.  
  722. repeat for numCards
  723. set the cursor to busy
  724. put bg fld "cat" into line x of theCatList
  725. put x + 1 into x
  726. go next
  727. end repeat
  728.  
  729. go to cd 1
  730. put theCatList into cd fld "theList"
  731.  
  732. pop cd
  733. end ProduceList</script>
  734.     </part>
  735.     <part>
  736.         <id>27</id>
  737.         <type>button</type>
  738.         <visible> <false /> </visible>
  739.         <reserved5> 0 </reserved5>
  740.         <reserved4> 0 </reserved4>
  741.         <reserved3> 0 </reserved3>
  742.         <reserved2> 0 </reserved2>
  743.         <reserved1> 0 </reserved1>
  744.         <enabled> <true /> </enabled>
  745.         <rect>
  746.             <left>5</left>
  747.             <top>71</top>
  748.             <right>18</right>
  749.             <bottom>83</bottom>
  750.         </rect>
  751.         <style>rectangle</style>
  752.         <showName> <true /> </showName>
  753.         <highlight> <false /> </highlight>
  754.         <autoHighlight> <true /> </autoHighlight>
  755.         <sharedHighlight> <true /> </sharedHighlight>
  756.         <family>0</family>
  757.         <titleWidth>0</titleWidth>
  758.         <icon>0</icon>
  759.         <textAlign>center</textAlign>
  760.         <font>Geneva</font>
  761.         <textSize>9</textSize>
  762.         <textStyle>plain</textStyle>
  763.         <name>A</name>
  764.         <script>on mouseUp
  765. SelectLetter(the short name of me)
  766. end mouseUp</script>
  767.     </part>
  768.     <part>
  769.         <id>28</id>
  770.         <type>button</type>
  771.         <visible> <false /> </visible>
  772.         <reserved5> 0 </reserved5>
  773.         <reserved4> 0 </reserved4>
  774.         <reserved3> 0 </reserved3>
  775.         <reserved2> 0 </reserved2>
  776.         <reserved1> 0 </reserved1>
  777.         <enabled> <true /> </enabled>
  778.         <rect>
  779.             <left>19</left>
  780.             <top>71</top>
  781.             <right>32</right>
  782.             <bottom>83</bottom>
  783.         </rect>
  784.         <style>rectangle</style>
  785.         <showName> <true /> </showName>
  786.         <highlight> <false /> </highlight>
  787.         <autoHighlight> <true /> </autoHighlight>
  788.         <sharedHighlight> <true /> </sharedHighlight>
  789.         <family>0</family>
  790.         <titleWidth>0</titleWidth>
  791.         <icon>0</icon>
  792.         <textAlign>center</textAlign>
  793.         <font>Geneva</font>
  794.         <textSize>9</textSize>
  795.         <textStyle>plain</textStyle>
  796.         <name>B</name>
  797.         <script>on mouseUp
  798. SelectLetter(the short name of me)
  799.  
  800. end mouseUp</script>
  801.     </part>
  802.     <part>
  803.         <id>29</id>
  804.         <type>button</type>
  805.         <visible> <false /> </visible>
  806.         <reserved5> 0 </reserved5>
  807.         <reserved4> 0 </reserved4>
  808.         <reserved3> 0 </reserved3>
  809.         <reserved2> 0 </reserved2>
  810.         <reserved1> 0 </reserved1>
  811.         <enabled> <true /> </enabled>
  812.         <rect>
  813.             <left>33</left>
  814.             <top>71</top>
  815.             <right>46</right>
  816.             <bottom>83</bottom>
  817.         </rect>
  818.         <style>rectangle</style>
  819.         <showName> <true /> </showName>
  820.         <highlight> <false /> </highlight>
  821.         <autoHighlight> <true /> </autoHighlight>
  822.         <sharedHighlight> <true /> </sharedHighlight>
  823.         <family>0</family>
  824.         <titleWidth>0</titleWidth>
  825.         <icon>0</icon>
  826.         <textAlign>center</textAlign>
  827.         <font>Geneva</font>
  828.         <textSize>9</textSize>
  829.         <textStyle>plain</textStyle>
  830.         <name>C</name>
  831.         <script>on mouseUp
  832. SelectLetter(the short name of me)
  833.  
  834. end mouseUp</script>
  835.     </part>
  836.     <part>
  837.         <id>30</id>
  838.         <type>button</type>
  839.         <visible> <false /> </visible>
  840.         <reserved5> 0 </reserved5>
  841.         <reserved4> 0 </reserved4>
  842.         <reserved3> 0 </reserved3>
  843.         <reserved2> 0 </reserved2>
  844.         <reserved1> 0 </reserved1>
  845.         <enabled> <true /> </enabled>
  846.         <rect>
  847.             <left>47</left>
  848.             <top>71</top>
  849.             <right>60</right>
  850.             <bottom>83</bottom>
  851.         </rect>
  852.         <style>rectangle</style>
  853.         <showName> <true /> </showName>
  854.         <highlight> <false /> </highlight>
  855.         <autoHighlight> <true /> </autoHighlight>
  856.         <sharedHighlight> <true /> </sharedHighlight>
  857.         <family>0</family>
  858.         <titleWidth>0</titleWidth>
  859.         <icon>0</icon>
  860.         <textAlign>center</textAlign>
  861.         <font>Geneva</font>
  862.         <textSize>9</textSize>
  863.         <textStyle>plain</textStyle>
  864.         <name>D</name>
  865.         <script>on mouseUp
  866. SelectLetter(the short name of me)
  867.  
  868. end mouseUp</script>
  869.     </part>
  870.     <part>
  871.         <id>31</id>
  872.         <type>button</type>
  873.         <visible> <false /> </visible>
  874.         <reserved5> 0 </reserved5>
  875.         <reserved4> 0 </reserved4>
  876.         <reserved3> 0 </reserved3>
  877.         <reserved2> 0 </reserved2>
  878.         <reserved1> 0 </reserved1>
  879.         <enabled> <true /> </enabled>
  880.         <rect>
  881.             <left>61</left>
  882.             <top>71</top>
  883.             <right>74</right>
  884.             <bottom>83</bottom>
  885.         </rect>
  886.         <style>rectangle</style>
  887.         <showName> <true /> </showName>
  888.         <highlight> <false /> </highlight>
  889.         <autoHighlight> <true /> </autoHighlight>
  890.         <sharedHighlight> <true /> </sharedHighlight>
  891.         <family>0</family>
  892.         <titleWidth>0</titleWidth>
  893.         <icon>0</icon>
  894.         <textAlign>center</textAlign>
  895.         <font>Geneva</font>
  896.         <textSize>9</textSize>
  897.         <textStyle>plain</textStyle>
  898.         <name>E</name>
  899.         <script>on mouseUp
  900. SelectLetter(the short name of me)
  901.  
  902. end mouseUp</script>
  903.     </part>
  904.     <part>
  905.         <id>32</id>
  906.         <type>button</type>
  907.         <visible> <false /> </visible>
  908.         <reserved5> 0 </reserved5>
  909.         <reserved4> 0 </reserved4>
  910.         <reserved3> 0 </reserved3>
  911.         <reserved2> 0 </reserved2>
  912.         <reserved1> 0 </reserved1>
  913.         <enabled> <true /> </enabled>
  914.         <rect>
  915.             <left>75</left>
  916.             <top>71</top>
  917.             <right>88</right>
  918.             <bottom>83</bottom>
  919.         </rect>
  920.         <style>rectangle</style>
  921.         <showName> <true /> </showName>
  922.         <highlight> <false /> </highlight>
  923.         <autoHighlight> <true /> </autoHighlight>
  924.         <sharedHighlight> <true /> </sharedHighlight>
  925.         <family>0</family>
  926.         <titleWidth>0</titleWidth>
  927.         <icon>0</icon>
  928.         <textAlign>center</textAlign>
  929.         <font>Geneva</font>
  930.         <textSize>9</textSize>
  931.         <textStyle>plain</textStyle>
  932.         <name>F</name>
  933.         <script>on mouseUp
  934. SelectLetter(the short name of me)
  935.  
  936. end mouseUp</script>
  937.     </part>
  938.     <part>
  939.         <id>33</id>
  940.         <type>button</type>
  941.         <visible> <false /> </visible>
  942.         <reserved5> 0 </reserved5>
  943.         <reserved4> 0 </reserved4>
  944.         <reserved3> 0 </reserved3>
  945.         <reserved2> 0 </reserved2>
  946.         <reserved1> 0 </reserved1>
  947.         <enabled> <true /> </enabled>
  948.         <rect>
  949.             <left>5</left>
  950.             <top>84</top>
  951.             <right>18</right>
  952.             <bottom>96</bottom>
  953.         </rect>
  954.         <style>rectangle</style>
  955.         <showName> <true /> </showName>
  956.         <highlight> <false /> </highlight>
  957.         <autoHighlight> <true /> </autoHighlight>
  958.         <sharedHighlight> <true /> </sharedHighlight>
  959.         <family>0</family>
  960.         <titleWidth>0</titleWidth>
  961.         <icon>0</icon>
  962.         <textAlign>center</textAlign>
  963.         <font>Geneva</font>
  964.         <textSize>9</textSize>
  965.         <textStyle>plain</textStyle>
  966.         <name>G</name>
  967.         <script>on mouseUp
  968. SelectLetter(the short name of me)
  969.  
  970. end mouseUp</script>
  971.     </part>
  972.     <part>
  973.         <id>34</id>
  974.         <type>button</type>
  975.         <visible> <false /> </visible>
  976.         <reserved5> 0 </reserved5>
  977.         <reserved4> 0 </reserved4>
  978.         <reserved3> 0 </reserved3>
  979.         <reserved2> 0 </reserved2>
  980.         <reserved1> 0 </reserved1>
  981.         <enabled> <true /> </enabled>
  982.         <rect>
  983.             <left>19</left>
  984.             <top>84</top>
  985.             <right>32</right>
  986.             <bottom>96</bottom>
  987.         </rect>
  988.         <style>rectangle</style>
  989.         <showName> <true /> </showName>
  990.         <highlight> <false /> </highlight>
  991.         <autoHighlight> <true /> </autoHighlight>
  992.         <sharedHighlight> <true /> </sharedHighlight>
  993.         <family>0</family>
  994.         <titleWidth>0</titleWidth>
  995.         <icon>0</icon>
  996.         <textAlign>center</textAlign>
  997.         <font>Geneva</font>
  998.         <textSize>9</textSize>
  999.         <textStyle>plain</textStyle>
  1000.         <name>H</name>
  1001.         <script>on mouseUp
  1002. SelectLetter(the short name of me)
  1003.  
  1004. end mouseUp</script>
  1005.     </part>
  1006.     <part>
  1007.         <id>35</id>
  1008.         <type>button</type>
  1009.         <visible> <false /> </visible>
  1010.         <reserved5> 0 </reserved5>
  1011.         <reserved4> 0 </reserved4>
  1012.         <reserved3> 0 </reserved3>
  1013.         <reserved2> 0 </reserved2>
  1014.         <reserved1> 0 </reserved1>
  1015.         <enabled> <true /> </enabled>
  1016.         <rect>
  1017.             <left>33</left>
  1018.             <top>84</top>
  1019.             <right>46</right>
  1020.             <bottom>96</bottom>
  1021.         </rect>
  1022.         <style>rectangle</style>
  1023.         <showName> <true /> </showName>
  1024.         <highlight> <false /> </highlight>
  1025.         <autoHighlight> <true /> </autoHighlight>
  1026.         <sharedHighlight> <true /> </sharedHighlight>
  1027.         <family>0</family>
  1028.         <titleWidth>0</titleWidth>
  1029.         <icon>0</icon>
  1030.         <textAlign>center</textAlign>
  1031.         <font>Geneva</font>
  1032.         <textSize>9</textSize>
  1033.         <textStyle>plain</textStyle>
  1034.         <name>I</name>
  1035.         <script>on mouseUp
  1036. SelectLetter(the short name of me)
  1037.  
  1038. end mouseUp</script>
  1039.     </part>
  1040.     <part>
  1041.         <id>36</id>
  1042.         <type>button</type>
  1043.         <visible> <false /> </visible>
  1044.         <reserved5> 0 </reserved5>
  1045.         <reserved4> 0 </reserved4>
  1046.         <reserved3> 0 </reserved3>
  1047.         <reserved2> 0 </reserved2>
  1048.         <reserved1> 0 </reserved1>
  1049.         <enabled> <true /> </enabled>
  1050.         <rect>
  1051.             <left>47</left>
  1052.             <top>84</top>
  1053.             <right>60</right>
  1054.             <bottom>96</bottom>
  1055.         </rect>
  1056.         <style>rectangle</style>
  1057.         <showName> <true /> </showName>
  1058.         <highlight> <false /> </highlight>
  1059.         <autoHighlight> <true /> </autoHighlight>
  1060.         <sharedHighlight> <true /> </sharedHighlight>
  1061.         <family>0</family>
  1062.         <titleWidth>0</titleWidth>
  1063.         <icon>0</icon>
  1064.         <textAlign>center</textAlign>
  1065.         <font>Geneva</font>
  1066.         <textSize>9</textSize>
  1067.         <textStyle>plain</textStyle>
  1068.         <name>J</name>
  1069.         <script>on mouseUp
  1070. SelectLetter(the short name of me)
  1071.  
  1072. end mouseUp</script>
  1073.     </part>
  1074.     <part>
  1075.         <id>37</id>
  1076.         <type>button</type>
  1077.         <visible> <false /> </visible>
  1078.         <reserved5> 0 </reserved5>
  1079.         <reserved4> 0 </reserved4>
  1080.         <reserved3> 0 </reserved3>
  1081.         <reserved2> 0 </reserved2>
  1082.         <reserved1> 0 </reserved1>
  1083.         <enabled> <true /> </enabled>
  1084.         <rect>
  1085.             <left>61</left>
  1086.             <top>84</top>
  1087.             <right>74</right>
  1088.             <bottom>96</bottom>
  1089.         </rect>
  1090.         <style>rectangle</style>
  1091.         <showName> <true /> </showName>
  1092.         <highlight> <false /> </highlight>
  1093.         <autoHighlight> <true /> </autoHighlight>
  1094.         <sharedHighlight> <true /> </sharedHighlight>
  1095.         <family>0</family>
  1096.         <titleWidth>0</titleWidth>
  1097.         <icon>0</icon>
  1098.         <textAlign>center</textAlign>
  1099.         <font>Geneva</font>
  1100.         <textSize>9</textSize>
  1101.         <textStyle>plain</textStyle>
  1102.         <name>K</name>
  1103.         <script>on mouseUp
  1104. SelectLetter(the short name of me)
  1105.  
  1106. end mouseUp</script>
  1107.     </part>
  1108.     <part>
  1109.         <id>38</id>
  1110.         <type>button</type>
  1111.         <visible> <false /> </visible>
  1112.         <reserved5> 0 </reserved5>
  1113.         <reserved4> 0 </reserved4>
  1114.         <reserved3> 0 </reserved3>
  1115.         <reserved2> 0 </reserved2>
  1116.         <reserved1> 0 </reserved1>
  1117.         <enabled> <true /> </enabled>
  1118.         <rect>
  1119.             <left>75</left>
  1120.             <top>84</top>
  1121.             <right>88</right>
  1122.             <bottom>96</bottom>
  1123.         </rect>
  1124.         <style>rectangle</style>
  1125.         <showName> <true /> </showName>
  1126.         <highlight> <false /> </highlight>
  1127.         <autoHighlight> <true /> </autoHighlight>
  1128.         <sharedHighlight> <true /> </sharedHighlight>
  1129.         <family>0</family>
  1130.         <titleWidth>0</titleWidth>
  1131.         <icon>0</icon>
  1132.         <textAlign>center</textAlign>
  1133.         <font>Geneva</font>
  1134.         <textSize>9</textSize>
  1135.         <textStyle>plain</textStyle>
  1136.         <name>L</name>
  1137.         <script>on mouseUp
  1138. SelectLetter(the short name of me)
  1139.  
  1140. end mouseUp</script>
  1141.     </part>
  1142.     <part>
  1143.         <id>39</id>
  1144.         <type>button</type>
  1145.         <visible> <false /> </visible>
  1146.         <reserved5> 0 </reserved5>
  1147.         <reserved4> 0 </reserved4>
  1148.         <reserved3> 0 </reserved3>
  1149.         <reserved2> 0 </reserved2>
  1150.         <reserved1> 0 </reserved1>
  1151.         <enabled> <true /> </enabled>
  1152.         <rect>
  1153.             <left>89</left>
  1154.             <top>84</top>
  1155.             <right>102</right>
  1156.             <bottom>96</bottom>
  1157.         </rect>
  1158.         <style>rectangle</style>
  1159.         <showName> <true /> </showName>
  1160.         <highlight> <false /> </highlight>
  1161.         <autoHighlight> <true /> </autoHighlight>
  1162.         <sharedHighlight> <true /> </sharedHighlight>
  1163.         <family>0</family>
  1164.         <titleWidth>0</titleWidth>
  1165.         <icon>0</icon>
  1166.         <textAlign>center</textAlign>
  1167.         <font>Geneva</font>
  1168.         <textSize>9</textSize>
  1169.         <textStyle>plain</textStyle>
  1170.         <name>M</name>
  1171.         <script>on mouseUp
  1172. SelectLetter(the short name of me)
  1173.  
  1174. end mouseUp</script>
  1175.     </part>
  1176.     <part>
  1177.         <id>40</id>
  1178.         <type>button</type>
  1179.         <visible> <false /> </visible>
  1180.         <reserved5> 0 </reserved5>
  1181.         <reserved4> 0 </reserved4>
  1182.         <reserved3> 0 </reserved3>
  1183.         <reserved2> 0 </reserved2>
  1184.         <reserved1> 0 </reserved1>
  1185.         <enabled> <true /> </enabled>
  1186.         <rect>
  1187.             <left>424</left>
  1188.             <top>71</top>
  1189.             <right>437</right>
  1190.             <bottom>83</bottom>
  1191.         </rect>
  1192.         <style>rectangle</style>
  1193.         <showName> <true /> </showName>
  1194.         <highlight> <false /> </highlight>
  1195.         <autoHighlight> <true /> </autoHighlight>
  1196.         <sharedHighlight> <true /> </sharedHighlight>
  1197.         <family>0</family>
  1198.         <titleWidth>0</titleWidth>
  1199.         <icon>0</icon>
  1200.         <textAlign>center</textAlign>
  1201.         <font>Geneva</font>
  1202.         <textSize>9</textSize>
  1203.         <textStyle>plain</textStyle>
  1204.         <name>N</name>
  1205.         <script>on mouseUp
  1206. SelectLetter(the short name of me)
  1207.  
  1208. end mouseUp</script>
  1209.     </part>
  1210.     <part>
  1211.         <id>41</id>
  1212.         <type>button</type>
  1213.         <visible> <false /> </visible>
  1214.         <reserved5> 0 </reserved5>
  1215.         <reserved4> 0 </reserved4>
  1216.         <reserved3> 0 </reserved3>
  1217.         <reserved2> 0 </reserved2>
  1218.         <reserved1> 0 </reserved1>
  1219.         <enabled> <true /> </enabled>
  1220.         <rect>
  1221.             <left>438</left>
  1222.             <top>71</top>
  1223.             <right>451</right>
  1224.             <bottom>83</bottom>
  1225.         </rect>
  1226.         <style>rectangle</style>
  1227.         <showName> <true /> </showName>
  1228.         <highlight> <false /> </highlight>
  1229.         <autoHighlight> <true /> </autoHighlight>
  1230.         <sharedHighlight> <true /> </sharedHighlight>
  1231.         <family>0</family>
  1232.         <titleWidth>0</titleWidth>
  1233.         <icon>0</icon>
  1234.         <textAlign>center</textAlign>
  1235.         <font>Geneva</font>
  1236.         <textSize>9</textSize>
  1237.         <textStyle>plain</textStyle>
  1238.         <name>O</name>
  1239.         <script>on mouseUp
  1240. SelectLetter(the short name of me)
  1241.  
  1242. end mouseUp</script>
  1243.     </part>
  1244.     <part>
  1245.         <id>42</id>
  1246.         <type>button</type>
  1247.         <visible> <false /> </visible>
  1248.         <reserved5> 0 </reserved5>
  1249.         <reserved4> 0 </reserved4>
  1250.         <reserved3> 0 </reserved3>
  1251.         <reserved2> 0 </reserved2>
  1252.         <reserved1> 0 </reserved1>
  1253.         <enabled> <true /> </enabled>
  1254.         <rect>
  1255.             <left>452</left>
  1256.             <top>71</top>
  1257.             <right>465</right>
  1258.             <bottom>83</bottom>
  1259.         </rect>
  1260.         <style>rectangle</style>
  1261.         <showName> <true /> </showName>
  1262.         <highlight> <false /> </highlight>
  1263.         <autoHighlight> <true /> </autoHighlight>
  1264.         <sharedHighlight> <true /> </sharedHighlight>
  1265.         <family>0</family>
  1266.         <titleWidth>0</titleWidth>
  1267.         <icon>0</icon>
  1268.         <textAlign>center</textAlign>
  1269.         <font>Geneva</font>
  1270.         <textSize>9</textSize>
  1271.         <textStyle>plain</textStyle>
  1272.         <name>P</name>
  1273.         <script>on mouseUp
  1274. SelectLetter(the short name of me)
  1275.  
  1276. end mouseUp</script>
  1277.     </part>
  1278.     <part>
  1279.         <id>43</id>
  1280.         <type>button</type>
  1281.         <visible> <false /> </visible>
  1282.         <reserved5> 0 </reserved5>
  1283.         <reserved4> 0 </reserved4>
  1284.         <reserved3> 0 </reserved3>
  1285.         <reserved2> 0 </reserved2>
  1286.         <reserved1> 0 </reserved1>
  1287.         <enabled> <true /> </enabled>
  1288.         <rect>
  1289.             <left>466</left>
  1290.             <top>71</top>
  1291.             <right>479</right>
  1292.             <bottom>83</bottom>
  1293.         </rect>
  1294.         <style>rectangle</style>
  1295.         <showName> <true /> </showName>
  1296.         <highlight> <false /> </highlight>
  1297.         <autoHighlight> <true /> </autoHighlight>
  1298.         <sharedHighlight> <true /> </sharedHighlight>
  1299.         <family>0</family>
  1300.         <titleWidth>0</titleWidth>
  1301.         <icon>0</icon>
  1302.         <textAlign>center</textAlign>
  1303.         <font>Geneva</font>
  1304.         <textSize>9</textSize>
  1305.         <textStyle>plain</textStyle>
  1306.         <name>Q</name>
  1307.         <script>on mouseUp
  1308. SelectLetter(the short name of me)
  1309.  
  1310. end mouseUp</script>
  1311.     </part>
  1312.     <part>
  1313.         <id>44</id>
  1314.         <type>button</type>
  1315.         <visible> <false /> </visible>
  1316.         <reserved5> 0 </reserved5>
  1317.         <reserved4> 0 </reserved4>
  1318.         <reserved3> 0 </reserved3>
  1319.         <reserved2> 0 </reserved2>
  1320.         <reserved1> 0 </reserved1>
  1321.         <enabled> <true /> </enabled>
  1322.         <rect>
  1323.             <left>480</left>
  1324.             <top>71</top>
  1325.             <right>493</right>
  1326.             <bottom>83</bottom>
  1327.         </rect>
  1328.         <style>rectangle</style>
  1329.         <showName> <true /> </showName>
  1330.         <highlight> <false /> </highlight>
  1331.         <autoHighlight> <true /> </autoHighlight>
  1332.         <sharedHighlight> <true /> </sharedHighlight>
  1333.         <family>0</family>
  1334.         <titleWidth>0</titleWidth>
  1335.         <icon>0</icon>
  1336.         <textAlign>center</textAlign>
  1337.         <font>Geneva</font>
  1338.         <textSize>9</textSize>
  1339.         <textStyle>plain</textStyle>
  1340.         <name>R</name>
  1341.         <script>on mouseUp
  1342. SelectLetter(the short name of me)
  1343.  
  1344. end mouseUp</script>
  1345.     </part>
  1346.     <part>
  1347.         <id>45</id>
  1348.         <type>button</type>
  1349.         <visible> <false /> </visible>
  1350.         <reserved5> 0 </reserved5>
  1351.         <reserved4> 0 </reserved4>
  1352.         <reserved3> 0 </reserved3>
  1353.         <reserved2> 0 </reserved2>
  1354.         <reserved1> 0 </reserved1>
  1355.         <enabled> <true /> </enabled>
  1356.         <rect>
  1357.             <left>494</left>
  1358.             <top>71</top>
  1359.             <right>507</right>
  1360.             <bottom>83</bottom>
  1361.         </rect>
  1362.         <style>rectangle</style>
  1363.         <showName> <true /> </showName>
  1364.         <highlight> <false /> </highlight>
  1365.         <autoHighlight> <true /> </autoHighlight>
  1366.         <sharedHighlight> <true /> </sharedHighlight>
  1367.         <family>0</family>
  1368.         <titleWidth>0</titleWidth>
  1369.         <icon>0</icon>
  1370.         <textAlign>center</textAlign>
  1371.         <font>Geneva</font>
  1372.         <textSize>9</textSize>
  1373.         <textStyle>plain</textStyle>
  1374.         <name>S</name>
  1375.         <script>on mouseUp
  1376. SelectLetter(the short name of me)
  1377.  
  1378. end mouseUp</script>
  1379.     </part>
  1380.     <part>
  1381.         <id>46</id>
  1382.         <type>button</type>
  1383.         <visible> <false /> </visible>
  1384.         <reserved5> 0 </reserved5>
  1385.         <reserved4> 0 </reserved4>
  1386.         <reserved3> 0 </reserved3>
  1387.         <reserved2> 0 </reserved2>
  1388.         <reserved1> 0 </reserved1>
  1389.         <enabled> <true /> </enabled>
  1390.         <rect>
  1391.             <left>410</left>
  1392.             <top>84</top>
  1393.             <right>423</right>
  1394.             <bottom>96</bottom>
  1395.         </rect>
  1396.         <style>rectangle</style>
  1397.         <showName> <true /> </showName>
  1398.         <highlight> <false /> </highlight>
  1399.         <autoHighlight> <true /> </autoHighlight>
  1400.         <sharedHighlight> <true /> </sharedHighlight>
  1401.         <family>0</family>
  1402.         <titleWidth>0</titleWidth>
  1403.         <icon>0</icon>
  1404.         <textAlign>center</textAlign>
  1405.         <font>Geneva</font>
  1406.         <textSize>9</textSize>
  1407.         <textStyle>plain</textStyle>
  1408.         <name>T</name>
  1409.         <script>on mouseUp
  1410. SelectLetter(the short name of me)
  1411.  
  1412. end mouseUp</script>
  1413.     </part>
  1414.     <part>
  1415.         <id>47</id>
  1416.         <type>button</type>
  1417.         <visible> <false /> </visible>
  1418.         <reserved5> 0 </reserved5>
  1419.         <reserved4> 0 </reserved4>
  1420.         <reserved3> 0 </reserved3>
  1421.         <reserved2> 0 </reserved2>
  1422.         <reserved1> 0 </reserved1>
  1423.         <enabled> <true /> </enabled>
  1424.         <rect>
  1425.             <left>424</left>
  1426.             <top>84</top>
  1427.             <right>437</right>
  1428.             <bottom>96</bottom>
  1429.         </rect>
  1430.         <style>rectangle</style>
  1431.         <showName> <true /> </showName>
  1432.         <highlight> <false /> </highlight>
  1433.         <autoHighlight> <true /> </autoHighlight>
  1434.         <sharedHighlight> <true /> </sharedHighlight>
  1435.         <family>0</family>
  1436.         <titleWidth>0</titleWidth>
  1437.         <icon>0</icon>
  1438.         <textAlign>center</textAlign>
  1439.         <font>Geneva</font>
  1440.         <textSize>9</textSize>
  1441.         <textStyle>plain</textStyle>
  1442.         <name>U</name>
  1443.         <script>on mouseUp
  1444. SelectLetter(the short name of me)
  1445.  
  1446. end mouseUp</script>
  1447.     </part>
  1448.     <part>
  1449.         <id>48</id>
  1450.         <type>button</type>
  1451.         <visible> <false /> </visible>
  1452.         <reserved5> 0 </reserved5>
  1453.         <reserved4> 0 </reserved4>
  1454.         <reserved3> 0 </reserved3>
  1455.         <reserved2> 0 </reserved2>
  1456.         <reserved1> 0 </reserved1>
  1457.         <enabled> <true /> </enabled>
  1458.         <rect>
  1459.             <left>438</left>
  1460.             <top>84</top>
  1461.             <right>451</right>
  1462.             <bottom>96</bottom>
  1463.         </rect>
  1464.         <style>rectangle</style>
  1465.         <showName> <true /> </showName>
  1466.         <highlight> <false /> </highlight>
  1467.         <autoHighlight> <true /> </autoHighlight>
  1468.         <sharedHighlight> <true /> </sharedHighlight>
  1469.         <family>0</family>
  1470.         <titleWidth>0</titleWidth>
  1471.         <icon>0</icon>
  1472.         <textAlign>center</textAlign>
  1473.         <font>Geneva</font>
  1474.         <textSize>9</textSize>
  1475.         <textStyle>plain</textStyle>
  1476.         <name>V</name>
  1477.         <script>on mouseUp
  1478. SelectLetter(the short name of me)
  1479.  
  1480. end mouseUp</script>
  1481.     </part>
  1482.     <part>
  1483.         <id>49</id>
  1484.         <type>button</type>
  1485.         <visible> <false /> </visible>
  1486.         <reserved5> 0 </reserved5>
  1487.         <reserved4> 0 </reserved4>
  1488.         <reserved3> 0 </reserved3>
  1489.         <reserved2> 0 </reserved2>
  1490.         <reserved1> 0 </reserved1>
  1491.         <enabled> <true /> </enabled>
  1492.         <rect>
  1493.             <left>452</left>
  1494.             <top>84</top>
  1495.             <right>465</right>
  1496.             <bottom>96</bottom>
  1497.         </rect>
  1498.         <style>rectangle</style>
  1499.         <showName> <true /> </showName>
  1500.         <highlight> <false /> </highlight>
  1501.         <autoHighlight> <true /> </autoHighlight>
  1502.         <sharedHighlight> <true /> </sharedHighlight>
  1503.         <family>0</family>
  1504.         <titleWidth>0</titleWidth>
  1505.         <icon>0</icon>
  1506.         <textAlign>center</textAlign>
  1507.         <font>Geneva</font>
  1508.         <textSize>9</textSize>
  1509.         <textStyle>plain</textStyle>
  1510.         <name>W</name>
  1511.         <script>on mouseUp
  1512. SelectLetter(the short name of me)
  1513.  
  1514. end mouseUp</script>
  1515.     </part>
  1516.     <part>
  1517.         <id>50</id>
  1518.         <type>button</type>
  1519.         <visible> <false /> </visible>
  1520.         <reserved5> 0 </reserved5>
  1521.         <reserved4> 0 </reserved4>
  1522.         <reserved3> 0 </reserved3>
  1523.         <reserved2> 0 </reserved2>
  1524.         <reserved1> 0 </reserved1>
  1525.         <enabled> <true /> </enabled>
  1526.         <rect>
  1527.             <left>466</left>
  1528.             <top>84</top>
  1529.             <right>479</right>
  1530.             <bottom>96</bottom>
  1531.         </rect>
  1532.         <style>rectangle</style>
  1533.         <showName> <true /> </showName>
  1534.         <highlight> <false /> </highlight>
  1535.         <autoHighlight> <true /> </autoHighlight>
  1536.         <sharedHighlight> <true /> </sharedHighlight>
  1537.         <family>0</family>
  1538.         <titleWidth>0</titleWidth>
  1539.         <icon>0</icon>
  1540.         <textAlign>center</textAlign>
  1541.         <font>Geneva</font>
  1542.         <textSize>9</textSize>
  1543.         <textStyle>plain</textStyle>
  1544.         <name>X</name>
  1545.         <script>on mouseUp
  1546. SelectLetter(the short name of me)
  1547.  
  1548. end mouseUp</script>
  1549.     </part>
  1550.     <part>
  1551.         <id>51</id>
  1552.         <type>button</type>
  1553.         <visible> <false /> </visible>
  1554.         <reserved5> 0 </reserved5>
  1555.         <reserved4> 0 </reserved4>
  1556.         <reserved3> 0 </reserved3>
  1557.         <reserved2> 0 </reserved2>
  1558.         <reserved1> 0 </reserved1>
  1559.         <enabled> <true /> </enabled>
  1560.         <rect>
  1561.             <left>480</left>
  1562.             <top>84</top>
  1563.             <right>493</right>
  1564.             <bottom>96</bottom>
  1565.         </rect>
  1566.         <style>rectangle</style>
  1567.         <showName> <true /> </showName>
  1568.         <highlight> <false /> </highlight>
  1569.         <autoHighlight> <true /> </autoHighlight>
  1570.         <sharedHighlight> <true /> </sharedHighlight>
  1571.         <family>0</family>
  1572.         <titleWidth>0</titleWidth>
  1573.         <icon>0</icon>
  1574.         <textAlign>center</textAlign>
  1575.         <font>Geneva</font>
  1576.         <textSize>9</textSize>
  1577.         <textStyle>plain</textStyle>
  1578.         <name>Y</name>
  1579.         <script>on mouseUp
  1580. SelectLetter(the short name of me)
  1581.  
  1582. end mouseUp</script>
  1583.     </part>
  1584.     <part>
  1585.         <id>52</id>
  1586.         <type>button</type>
  1587.         <visible> <false /> </visible>
  1588.         <reserved5> 0 </reserved5>
  1589.         <reserved4> 0 </reserved4>
  1590.         <reserved3> 0 </reserved3>
  1591.         <reserved2> 0 </reserved2>
  1592.         <reserved1> 0 </reserved1>
  1593.         <enabled> <true /> </enabled>
  1594.         <rect>
  1595.             <left>494</left>
  1596.             <top>84</top>
  1597.             <right>507</right>
  1598.             <bottom>96</bottom>
  1599.         </rect>
  1600.         <style>rectangle</style>
  1601.         <showName> <true /> </showName>
  1602.         <highlight> <false /> </highlight>
  1603.         <autoHighlight> <true /> </autoHighlight>
  1604.         <sharedHighlight> <true /> </sharedHighlight>
  1605.         <family>0</family>
  1606.         <titleWidth>0</titleWidth>
  1607.         <icon>0</icon>
  1608.         <textAlign>center</textAlign>
  1609.         <font>Geneva</font>
  1610.         <textSize>9</textSize>
  1611.         <textStyle>plain</textStyle>
  1612.         <name>Z</name>
  1613.         <script>on mouseUp
  1614. SelectLetter(the short name of me)
  1615.  
  1616. end mouseUp</script>
  1617.     </part>
  1618.     <part>
  1619.         <id>53</id>
  1620.         <type>button</type>
  1621.         <visible> <false /> </visible>
  1622.         <reserved5> 0 </reserved5>
  1623.         <reserved4> 0 </reserved4>
  1624.         <reserved3> 0 </reserved3>
  1625.         <reserved2> 0 </reserved2>
  1626.         <reserved1> 0 </reserved1>
  1627.         <enabled> <true /> </enabled>
  1628.         <rect>
  1629.             <left>5</left>
  1630.             <top>71</top>
  1631.             <right>18</right>
  1632.             <bottom>83</bottom>
  1633.         </rect>
  1634.         <style>rectangle</style>
  1635.         <showName> <true /> </showName>
  1636.         <highlight> <false /> </highlight>
  1637.         <autoHighlight> <true /> </autoHighlight>
  1638.         <sharedHighlight> <true /> </sharedHighlight>
  1639.         <family>0</family>
  1640.         <titleWidth>0</titleWidth>
  1641.         <icon>0</icon>
  1642.         <textAlign>center</textAlign>
  1643.         <font>Geneva</font>
  1644.         <textSize>9</textSize>
  1645.         <textStyle>plain</textStyle>
  1646.         <name>A</name>
  1647.         <script>on mouseUp
  1648. SelectLetter(the short name of me)
  1649.  
  1650. end mouseUp</script>
  1651.     </part>
  1652.     <part>
  1653.         <id>55</id>
  1654.         <type>button</type>
  1655.         <visible> <false /> </visible>
  1656.         <reserved5> 0 </reserved5>
  1657.         <reserved4> 0 </reserved4>
  1658.         <reserved3> 0 </reserved3>
  1659.         <reserved2> 0 </reserved2>
  1660.         <reserved1> 0 </reserved1>
  1661.         <enabled> <true /> </enabled>
  1662.         <rect>
  1663.             <left>19</left>
  1664.             <top>71</top>
  1665.             <right>32</right>
  1666.             <bottom>83</bottom>
  1667.         </rect>
  1668.         <style>rectangle</style>
  1669.         <showName> <true /> </showName>
  1670.         <highlight> <false /> </highlight>
  1671.         <autoHighlight> <true /> </autoHighlight>
  1672.         <sharedHighlight> <false /> </sharedHighlight>
  1673.         <family>0</family>
  1674.         <titleWidth>0</titleWidth>
  1675.         <icon>0</icon>
  1676.         <textAlign>center</textAlign>
  1677.         <font>Geneva</font>
  1678.         <textSize>9</textSize>
  1679.         <textStyle>plain</textStyle>
  1680.         <name>B</name>
  1681.         <script>on mouseUp
  1682. SelectLetter(the short name of me)
  1683.  
  1684. end mouseUp</script>
  1685.     </part>
  1686.     <part>
  1687.         <id>56</id>
  1688.         <type>button</type>
  1689.         <visible> <true /> </visible>
  1690.         <reserved5> 0 </reserved5>
  1691.         <reserved4> 0 </reserved4>
  1692.         <reserved3> 0 </reserved3>
  1693.         <reserved2> 0 </reserved2>
  1694.         <reserved1> 0 </reserved1>
  1695.         <enabled> <true /> </enabled>
  1696.         <rect>
  1697.             <left>291</left>
  1698.             <top>3</top>
  1699.             <right>339</right>
  1700.             <bottom>17</bottom>
  1701.         </rect>
  1702.         <style>checkbox</style>
  1703.         <showName> <true /> </showName>
  1704.         <highlight> <false /> </highlight>
  1705.         <autoHighlight> <true /> </autoHighlight>
  1706.         <sharedHighlight> <false /> </sharedHighlight>
  1707.         <family>0</family>
  1708.         <titleWidth>0</titleWidth>
  1709.         <icon>0</icon>
  1710.         <textAlign>center</textAlign>
  1711.         <font>Geneva</font>
  1712.         <textSize>9</textSize>
  1713.         <textStyle>plain</textStyle>
  1714.         <name>7 Only</name>
  1715.         <script>on mouseUp
  1716. if the optionkey is up then
  1717. set the hilite of me to not the hilite of me
  1718. beep
  1719. answer "Please don‚Äôt change this button.             (visual feedback only)"
  1720. end if
  1721. end mouseUp</script>
  1722.     </part>
  1723.     <part>
  1724.         <id>58</id>
  1725.         <type>field</type>
  1726.         <visible> <true /> </visible>
  1727.         <dontWrap> <false /> </dontWrap>
  1728.         <dontSearch> <false /> </dontSearch>
  1729.         <sharedText> <false /> </sharedText>
  1730.         <fixedLineHeight> <false /> </fixedLineHeight>
  1731.         <autoTab> <false /> </autoTab>
  1732.         <lockText> <true /> </lockText>
  1733.         <rect>
  1734.             <left>328</left>
  1735.             <top>47</top>
  1736.             <right>510</right>
  1737.             <bottom>62</bottom>
  1738.         </rect>
  1739.         <style>transparent</style>
  1740.         <autoSelect> <false /> </autoSelect>
  1741.         <showLines> <false /> </showLines>
  1742.         <wideMargins> <false /> </wideMargins>
  1743.         <multipleLines> <false /> </multipleLines>
  1744.         <reservedFamily> 0 </reservedFamily>
  1745.         <titleWidth>0</titleWidth>
  1746.         <icon>0</icon>
  1747.         <textAlign>left</textAlign>
  1748.         <font>Geneva</font>
  1749.         <textSize>9</textSize>
  1750.         <textStyle>plain</textStyle>
  1751.         <textHeight>12</textHeight>
  1752.         <name>topic popup</name>
  1753.         <script>on mousedown
  1754. global theTopics
  1755. if the optionkey is down then
  1756. put line 1 of styledPopup (theTopics, the left of me+1, the top of me+1,¬¨
  1757. "¬© Jeff Winkler", line 1 of me, "geneva", 9) into tempTopic
  1758. if tempTopic ‚↠"" then
  1759. put tempTopic into line 1 of me
  1760. end if
  1761. else
  1762. beep
  1763. answer "Please don‚Äôt change this popup menu.   (visual feedback only)"
  1764. end if
  1765. end mousedown</script>
  1766.     </part>
  1767.     <part>
  1768.         <id>59</id>
  1769.         <type>button</type>
  1770.         <visible> <true /> </visible>
  1771.         <reserved5> 0 </reserved5>
  1772.         <reserved4> 0 </reserved4>
  1773.         <reserved3> 0 </reserved3>
  1774.         <reserved2> 0 </reserved2>
  1775.         <reserved1> 0 </reserved1>
  1776.         <enabled> <true /> </enabled>
  1777.         <rect>
  1778.             <left>494</left>
  1779.             <top>48</top>
  1780.             <right>509</right>
  1781.             <bottom>61</bottom>
  1782.         </rect>
  1783.         <style>transparent</style>
  1784.         <showName> <false /> </showName>
  1785.         <highlight> <false /> </highlight>
  1786.         <autoHighlight> <false /> </autoHighlight>
  1787.         <sharedHighlight> <false /> </sharedHighlight>
  1788.         <family>0</family>
  1789.         <titleWidth>0</titleWidth>
  1790.         <icon>31383</icon>
  1791.         <textAlign>center</textAlign>
  1792.         <font>Chicago</font>
  1793.         <textSize>12</textSize>
  1794.         <textStyle>plain</textStyle>
  1795.         <name>arrow</name>
  1796.         <script>on mouseDown
  1797. send mousedown to bg fld id 58
  1798. end mouseDown</script>
  1799.     </part>
  1800.     <part>
  1801.         <id>60</id>
  1802.         <type>button</type>
  1803.         <visible> <true /> </visible>
  1804.         <reserved5> 0 </reserved5>
  1805.         <reserved4> 0 </reserved4>
  1806.         <reserved3> 0 </reserved3>
  1807.         <reserved2> 0 </reserved2>
  1808.         <reserved1> 0 </reserved1>
  1809.         <enabled> <true /> </enabled>
  1810.         <rect>
  1811.             <left>195</left>
  1812.             <top>1</top>
  1813.             <right>220</right>
  1814.             <bottom>27</bottom>
  1815.         </rect>
  1816.         <style>transparent</style>
  1817.         <showName> <false /> </showName>
  1818.         <highlight> <false /> </highlight>
  1819.         <autoHighlight> <true /> </autoHighlight>
  1820.         <sharedHighlight> <false /> </sharedHighlight>
  1821.         <family>0</family>
  1822.         <titleWidth>0</titleWidth>
  1823.         <icon>2478</icon>
  1824.         <textAlign>center</textAlign>
  1825.         <font>Chicago</font>
  1826.         <textSize>12</textSize>
  1827.         <textStyle>plain</textStyle>
  1828.         <name></name>
  1829.         <script>on mouseUp
  1830. visual effect dissolve
  1831. go to cd id 9401
  1832. end mouseUp</script>
  1833.     </part>
  1834.     <part>
  1835.         <id>61</id>
  1836.         <type>button</type>
  1837.         <visible> <true /> </visible>
  1838.         <reserved5> 0 </reserved5>
  1839.         <reserved4> 0 </reserved4>
  1840.         <reserved3> 0 </reserved3>
  1841.         <reserved2> 0 </reserved2>
  1842.         <reserved1> 0 </reserved1>
  1843.         <enabled> <true /> </enabled>
  1844.         <rect>
  1845.             <left>493</left>
  1846.             <top>3</top>
  1847.             <right>511</right>
  1848.             <bottom>17</bottom>
  1849.         </rect>
  1850.         <style>transparent</style>
  1851.         <showName> <false /> </showName>
  1852.         <highlight> <false /> </highlight>
  1853.         <autoHighlight> <false /> </autoHighlight>
  1854.         <sharedHighlight> <false /> </sharedHighlight>
  1855.         <family>0</family>
  1856.         <titleWidth>0</titleWidth>
  1857.         <icon>31384</icon>
  1858.         <textAlign>center</textAlign>
  1859.         <font>Chicago</font>
  1860.         <textSize>12</textSize>
  1861.         <textStyle>plain</textStyle>
  1862.         <name>go to card</name>
  1863.         <script>on mouseup
  1864. send mouseup to bg btn id 26
  1865. end mouseup</script>
  1866.     </part>
  1867.     <name></name>
  1868.     <script>on SelectLetter letter
  1869. set the cursor to watch
  1870. put 1 into i
  1871.  
  1872. repeat for the number of lines of bg fld "popup"
  1873. if (char 1 of line i of bg fld popup = letter) then
  1874. exit repeat
  1875. else if (char 1 of line i of bg fld popup > letter) then
  1876. exit repeat
  1877. end if
  1878. put i + 1 into i
  1879. end repeat
  1880.  
  1881. lock screen
  1882. select line i of bg fld "popup"
  1883. get the selectedchunk
  1884. add 1 to word 4 of it
  1885. unlock screen
  1886. select it
  1887.  
  1888. end SelectLetter
  1889.  
  1890. on opencard
  1891. -- update card number
  1892. put the number of cds of this bg into numCds
  1893. put the number of this cd - (the number of cds of this stack - numCds) into thisCd
  1894. put "Card" && thisCd && "of" && numCds into bg fld "cards"
  1895. end opencard</script>
  1896. </background>
  1897.